﻿Imports Aras.IOM
Imports System.Xml


Partial Class GetDocuments
    Inherits System.Web.UI.Page

    Dim Dossier_id As String = ""



    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load


    End Sub


   
    Public Function SetProjectSession(ByVal ID As String) As String
        Dim result As String = "False"

        Dim conn As ConnecteurAras = New ConnecteurAras(Session("LOGON_NAME"), Session("LOGON_PASS"))
        Dim projectname As String = conn.getProjectName(ID)
        Session("Project") = projectname

        If conn.state = True Then
            result = "Ok"
            Session("ConnecState") = True
        Else
            result = "False"
            Session("ConnecState") = False
        End If


        Return result
    End Function
End Class
